﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if

IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt,i
	Runtxt=qingtian.RunStr
%>
	<card title="后台帐号配置"><p align="left">
<a href='index.asp?sid=<%=sid%>'>管理首页</a>&gt;配置<br/>
==<b>后台帐号配置</b>==<br/>
        输入新帐号:<br/>
        <input name="name<%=Runtxt%>" value="" type="text"/><br/>
        输入新密码:<br/>
        <input name="pass<%=Runtxt%>" value="" type="text"/><br/>
	<anchor>修改现在登陆帐号
    	<go href="config6.asp?act=1&amp;Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="name" value="$(name<%=Runtxt%>)"/>
        <postfield name="pass" value="$(pass<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>-----------------<br/>
<%
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select * FROM admin"
		rs.open sql,cn,1,1
		if not(rs.eof and rs.bof) then
%>
后台管理员:<%=rs("name")%><br/>
<%

		else
%>
暂无后台管理员<br/>
<%
		end if
		Rs.close
	set rs=nothing
%>-----------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,pass,act
		name=qingtian.repsql(trim(Request.form("name")))
		pass=qingtian.repsql(trim(Request.form("pass")))
    		act = Request.QueryString("act")    
    		If act = "" Then act = 0
   		If Not IsNumeric(act) Then act = 0
    		act = CLng(act)
if len(name)<2 or len(name)>100 or len(pass)<2 or len(pass)>100 then errss="填写有误,请重新写入...<br/>"
		pass=md5(pass)

%>

<card id="login" title="后台帐号配置" ontimer="config6.asp?sid=<%=sid%>"><timer value="20"/><p align="left">
<%
	if errss="" then
if act=1  then
    cn.execute("update admin set [pass]='"&pass&"',[name]='"&name&"'")
%>
后台管理员帐号修改成功!<br/>
<%
else
    
%>
添加后台管理员帐号成功!<br/>
<% 
end if
	else
%>
		填写有误,请重新写入...<br/>
		<a href="config6.asp?sid=<%=sid%>">返回帐号管理</a><br/>
<%
	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 
%>
